home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 32 (1993-02)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 32 (1993-02)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / hyperbook / HML_LookUp (.txt) < prev    next >
HyperBook  |  1993-02-11  |  25KB  |  404 lines
  1. \IXdK
  2. /*  */
  3. old = SearchName(':','Note4')
  4. if old ~= '' then call HML_Delete(old)
  5. old = GetObjectAt(250,50)
  6. if old ~= '' then call SetVisibility(old,'0')
  7. obj = initiator()
  8. item = right(obj,length(obj) - index(obj,'/'))
  9. targ = 'FSet' || item
  10. ob = SearchName(':',targ)
  11. call SetVisibility(ob,1)
  12. ToFront
  13. /* Show Doc */
  14. if ~exists('ram:HML_List') then do
  15.   call BeginPrompt("First Access. Copying HML_List to Ram:")
  16.   address command 'copy HML_List ram:'
  17.   call EndPrompt()
  18.   end
  19. op = open('hl','HML_List','r')
  20. old = SearchName(':','Note4')
  21. if old ~= '' then  call hml_Delete(old)
  22. item = Initiator() ; text = GetItemtext(item)
  23. wlist = left(item,index(item,'/') ) || '1'
  24. lhead = GetItemText(wlist)
  25. cobj = SearchName(':','Categories')
  26. crank = SearchItems(cobj,lhead)
  27. crank = substr(crank,index(crank,'/'))
  28. locobj = SearchName(':','locations')
  29. dist = GetItemText(locobj || crank)
  30. se = seek('hl',dist,'b')
  31. do until t = text ; t = readln('hl') ; end
  32. t =t || '0a'x
  33. note = CreateNote() ;call InsertText(note,t,-1)
  34. txt = '' ; i = 1
  35. do until t = ""
  36.  i = i + 1; t = readln('hl') ; txt = txt || t
  37. cl = close('hl')
  38. call InsertText(note,txt,-1)
  39. depth = length(txt) % 28 * 9 + 36
  40. call ScaleToSize(note,270,depth)
  41. call SetPosition(note,368,30)
  42. call Relocate(note,':')
  43. ShowDoc
  44. Note1
  45. Click on a
  46. Category
  47. Note2
  48. Then on a
  49. function
  50. "locations"
  51. 10862
  52. 11645
  53. 13342
  54. 15351
  55. 17601
  56. 18073
  57. 18675
  58. 19201
  59. "Categories"
  60. HyperBook control
  61. Navigation    
  62. Main control panel
  63. General editing
  64. Page Creation
  65. Master pages
  66. Page files
  67. Page editing
  68. Object creation
  69. Object editing
  70. Actions
  71. Note and button text
  72. Items and lists
  73. Searches
  74. User input
  75. Text editing
  76. Printing
  77. Data display
  78. Language support
  79. "FSet1"
  80. HyperBook control
  81. numpages
  82. hyperbookname 
  83. loadhyperbook
  84. savehyperbook
  85. hyperbooktofront
  86. hyperbooktoback
  87. quithyperbook
  88. "FSet2"
  89. Navigation    
  90. nextpage
  91. prevpage
  92. gotopage
  93. callpage
  94. return
  95. "FSet3"
  96. Main control panel
  97. bigpanel
  98.     tinypanel
  99. controlpanel
  100. "FSet4"
  101. General editing
  102. delete
  103. relocate
  104. getbackground
  105. setbackground
  106. getwidth
  107.     getheight
  108. getname
  109. setname
  110. "FSet5"
  111. Page Creation
  112. createpage
  113.     clonepage
  114. mastertopage
  115. "FSet6"
  116. Master pages
  117. pagetomaster
  118. ismasterpage
  119. deletemaster
  120. "FSet7"
  121. Page files
  122. loadpage
  123.     mergepage
  124. savepage
  125. "FSet8"
  126. Page editing
  127. getpagelace
  128. setpagelace
  129. getpagecolors
  130. setpagecolors
  131. getpagergb
  132. setpagergb
  133. wiperoutine
  134. pagedim
  135. setpagenumber
  136. refreshpage
  137. "FSet9"
  138. Object creation
  139. createnote
  140. createbutton
  141. createlist
  142. creategroup
  143. clone
  144. "FSet10"
  145. Object editing
  146. getleft
  147. gettop
  148. setposition
  149.     getborder
  150.     setborder
  151.     getshadow
  152.     setshadow
  153. shadowstyle
  154. getvisibility
  155. setvisibility
  156. scale
  157. scaletosize
  158. objecttoback
  159. objecttofront
  160. getgroupdepth
  161. explode
  162. "FSet11"
  163. Actions
  164.     getaction
  165. getactiontext
  166. setactionnone
  167. setactionpage
  168. setactionpic
  169. setactionshow
  170. setactionread
  171. setactiondos
  172. setactionrexx
  173. setactionmacro
  174. setactionlink
  175. activate
  176. "FSet12"
  177. Note and button text
  178. readnotetext
  179. inserttext
  180. replacetext
  181.     cleartext
  182. deletetext
  183. "FSet13"
  184. Items and lists
  185. getitemcolor
  186. setitemcolor
  187. getitemtext
  188. setitemtext
  189. insertitem
  190. appenditem
  191. moveitem
  192.     clearlist
  193. sortlist
  194. refreshlist
  195. listscroll
  196. listheight
  197. "FSet14"
  198. Searches
  199. searchstart
  200. searchname
  201. searchpagename
  202. searchtext
  203. searchitems
  204. searchnote
  205. "FSet15"
  206. User input
  207. getresponse
  208. inputstring
  209.     inputform
  210. inputobject
  211.     inputpage
  212. selectitem
  213. getclickrow
  214.     getcolumn
  215. getobjectat
  216. beginprompt
  217.     endprompt
  218. filerequest
  219. "FSet16"
  220. Text editing
  221. loadtext
  222. savetext
  223. savemoretext
  224. edittext
  225. "FSet17"
  226. Printing
  227. getprintwidth
  228. formattext
  229.     printpage
  230. "FSet18"
  231. Data display
  232. showpic
  233. showtext
  234. showtextrange
  235. "FSet19"
  236. Language support
  237. numelements
  238. sequencenumber
  239. totalelements
  240. gettype
  241. getpage
  242. getnext
  243. getnextsib
  244. objectnumber
  245. parent
  246. currentpage
  247.     initiator
  248. ismacro
  249.     movemacro
  250. interactive
  251. pause
  252. inform
  253. Note3
  254. Read about it here
  255. Picture1
  256.     Ram Disk:
  257. Page1
  258. "HMLList1"
  259. numpages
  260. hyperbookname 
  261. loadhyperbook
  262. savehyperbook
  263. hyperbooktofront
  264. hyperbooktoback
  265. quithyperbook
  266. nextpage
  267. prevpage
  268. gotopage
  269. callpage
  270. return
  271. bigpanel
  272.     tinypanel
  273. controlpanel
  274. delete
  275. relocate
  276. getbackground
  277. setbackground
  278. getwidth
  279.     getheight
  280. getname
  281. setname
  282. createpage
  283.     clonepage
  284. mastertopage
  285. pagetomaster
  286. ismasterpage
  287. "HMLList2"
  288. deletemaster
  289. loadpage
  290.     mergepage
  291. savepage
  292. getpagelace
  293. setpagelace
  294. getpagecolors
  295. setpagecolors
  296. getpagergb
  297. setpagergb
  298. wiperoutine
  299. pagedim
  300. setpagenumber
  301. refreshpage
  302. createnote
  303. createbutton
  304. createlist
  305. creategroup
  306. clone
  307. getleft
  308. gettop
  309. setposition
  310.     getborder
  311.     setborder
  312.     getshadow
  313.     setshadow
  314. shadowstyle
  315. getvisibility
  316. "HMLList3"
  317. setvisibility
  318. scale
  319. scaletosize
  320. objecttoback
  321. objecttofront
  322. getgroupdepth
  323. explode
  324.     getaction
  325. getactiontext
  326. setactionnone
  327. setactionpage
  328. setactionpic
  329. setactionshow
  330. setactionread
  331. setactiondos
  332. setactionrexx
  333. setactionmacro
  334. setactionlink
  335. activate
  336. readnotetext
  337. inserttext
  338. replacetext
  339.     cleartext
  340. deletetext
  341. getitemcolor
  342. setitemcolor
  343. getitemtext
  344. setitemtext
  345. "HMLList4"
  346. insertitem
  347. appenditem
  348. moveitem
  349.     clearlist
  350. sortlist
  351. refreshlist
  352. listscroll
  353. listheight
  354. searchstart
  355. searchname
  356. searchpagename
  357. searchtext
  358. searchitems
  359. searchnote
  360. getresponse
  361. inputstring
  362.     inputform
  363. inputobject
  364.     inputpage
  365. selectitem
  366. getclickrow
  367.     getcolumn
  368. getobjectat
  369. beginprompt
  370.     endprompt
  371. filerequest
  372. loadtext
  373. savetext
  374. "HMLList5"
  375. savemoretext
  376. edittext
  377. getprintwidth
  378. formattext
  379.     printpage
  380. showpic
  381. showtext
  382. showtextrange
  383. numelements
  384. sequencenumber
  385. totalelements
  386. gettype
  387. getpage
  388. getnext
  389. getnextsib
  390. objectnumber
  391. parent
  392. currentpage
  393.     initiator
  394. ismacro
  395.     movemacro
  396. interactive
  397. pause
  398. inform
  399. Note1
  400. setitemcolor
  401.  old = SETITEMCOLOR (item, color) Set the color of the given
  402. item, and return its previous color.
  403. Page2
  404.